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boo$readprompt - prompt and read input string 
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= console input output routines =JAN-1985 17:28: AX/VMS Macro y04-00 Pa 1 
“ Fs Basin 882 $338: 48 UV1ROM.BUGSRC BOOUV1SWT.MAR: 1° (1) 
£808 008t § BOOT _UV1_SWITCH | ; Build Micro-VAX I bootstrap emulator 


= 
-title CONIO = console input output routines 
-ident /V1.0-01/ 


pRAAAA ARASH KAH ATH A ARE AHKEHHERARARERAEAAAAEEAAAEAAAAAKeAee eee eeeeeeeeeeeee 


Copyright (C) 1978, 1980, 1982, 1984 


+ bbs > Equipment Corporation, Maynard, Massachusetts. 
all rights reserved. 


Sooooo OOOO SOOO OOOO oOo oo SSeS 
SoOSCooCoOooOoOoooooSoooooooofDooo 


This software is furnished under a License and wry be used and copied 
only in accordance with the terms of such License and with the 
inclusion of the above copyright notice. This software or any other 
copies thereof may not be provided or otherwise made available to any 
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: transferred. 


The information in this software is subject to change without notice 
ee ers mot be construed as a commitment by Digital Equipment 
orporation. 


Digital assumes no responsibility for the use or reliability of its 
software on equipment which is not supplied by Digital. 
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Facility: system bootstrapping 
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Abstract: CONIO provides basic console read, readprompt and write facilities. 
Author: Richard 1. Hustvedt, creation date: 27-apr-1978 
Modified by: 
David N. Cutler 29-Dec-83 
Add support for QVSS as the console terminal on MicroVax J. 
Modified By: 
v04-001 DGB0103 Donald G. Blair 16-Nov-1984 


Use correct register for byte read from the console 
device to compare against <CR> character. 
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Include files: 


Sordef ; define processor registers 
$ssdef ; define status code values 


Equated symbols: 
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character code for carriage return 
character code for line feed 
character code for control-u 
control s (xoff) 

control q (xon) 

character code for rubout 

rubout sequence in progress 
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CONIO = console input output routines ~JAN-1985 17:28:1 AX/VMS Macro y04-00 Page va 
V1.0-01 boo readprompt sd prompt and read input s 5 JuL-1984 15:32:18 LOVIROM. BUGSRC CONIO.MAR; 1 dy vo 
0 28 ‘ -sbtt! booSreadprompt - prompt and read input string 
60 ; boosreadprompt petpte the specified asciz prenet string on the 
61 ; console terminal then checks the count of characters tc be read. 
8 86 3 f zero it exits, otherwise it reads the console terminal until 
63; either a gece loge return is encountered or the character count 
§ 64 ; is satisfied, The specified buffer is filled with an ascic 
0 65 ; string sencetning the characters read but not including the 
009 66 3 terminating carriage return. 
$8 $3 : Calling sequence: 
0; callx arglist,boo$readprompt 
9909 71 | . . 
4 i : Input parameters: 
0000s 74: prompt(ap) - address of asciz prompt string 32 
00000004 it y? prompt = 4 
0000 77: size(ap) - maximum length of input string 
00000008 9000 78 size = § : 
0009 79 ; note: if size is zero, then nothing is read 
0000 & 3 and only the prompt string is written. 
9000000¢ 44 H : put (ep) 12 address of input buffer 
u = 
0000 h ; 
0000 ge § option(ap) = processor switch value. 
00000010 0000 86 option = 16 
0000 87 ; 
94 Hy ; Output parameters: 
0000 oy : r0 - completion status code (always ss$_normal) 
0000 8 : Buffer located by buf(ap) will be filled with the string 
805 + 3 read as an ascic string. 
0 95 ° 
90009000 38 -psect S$conio,byte 
0314 st 6 -entry sostregdorengt, "mcre. 14.70.70 
58 04 AC 00 38 98 10$: mov | prompt (ap).r get prompt string address 
54 04 00 $ 99 clrl cr sclear control lage 
50 88 9A 000 100 20$: movzbl (r8)+,r0 eget next output character 
Fi 43 $8 101 beql 30$ :1f eql none 
0086 «3 p » .% § bsbw eyscher ,output character 
F611 ; : ? brb $ : 
52 O08 AC QA 1 105 30$: movzbl size(ap).r2 z;maximum number of characters to read 
ee 1 1 $ beql 120$ zit eql none 
59 OC AC 4 1 1 mov l buf(ap),r9 sset address of input buffer 
8 4 s 3 clrb (r9)+ sinitialize string count 
02 F5 1 1 sobgtr r2,40$ sdecrement and test character count 
: j “5 
531 110 bro 116s tend of read 
05 10 AC 06 f° 5 \\¢ 40$: bbs SS -opt tenteph ,308 :if set, vt100 console terminal 
FFDS* 30 8 11 bsbw gxss input ;read character from qvss 
11 0028 114 brb $ ; 
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movzbl 
bsbb 
movzbl 
bsbb 
subl 
subb3 


movzwl 
ret 


outbsl|sh: 


movzbl 
brb 


movzbl 


#for$_rxcs,r0 
47 60,508 . 
r$_rxdb,r 
Ae et 

Eryseut.r6 
-(r9),r8 
#v_rub,r4,70$ 
outbs (sh 

ree 

M4 
40$ 


#v_rub,r4,90$ 
outbslsh 
ontrot_u.ré 
#6,7r8,100$ 
AT 
#cr,r8 

1108 

r 
tos 
outr8 
r8,(r9)+ 
r2,40$ 


buf(ap),r9 
#1,°9,abuf (ap) 


#ss$_normal,r0 


#*al\%,r0 
outchar 


r8,r0 


#6 ,option(ap) ,10$ 
avsssoutput 


#or$_rxcs,ri 
#7001308 
for$_rxdb,rl 
#0,87,¢1,a@control_s 


ors racs.rt 
aT ,208 
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sreceiver ready? 

sif clr, receiver not ready 
iread input character 
iclear parity bit 


;rubout? 

:if neq no 

;get character to rubout 

i1f eql none 

;set start of rubout sequence 
soutput back slash 

;output rubbed out character 
jadjust remaining character count 


terminate rubout sequence 
sOutput backslash 

scontrol u? 

:if eql yes 

:if clr, then graphic 
;convert to upper case 
carriage return? 

sif eql yes 

any space .eft in buffer? 
:if eql no 

zecho character 

sbuffer new character 
ireduce space remaining (always loop) 


;set carriage return character 


zsyes send Line feed also 
soutput character in r0 
scompute character count + 1 
sset actual character count 


zreturn normal completion status 


soutput back slash 
sset character code 
sand output it 


-get character to output 
Output character inr Z 
:if set, vtl00 console terminal 


sreceiver ready? 

sif clr, receiver not ready 
sread input character. 
;control-s? 


:if neq no 
sreceiver ready? 
:if clr, receiver not ready 
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iread input character 
zis it a control-q? 


ino, wait for another character. 
transmitter done? 

sif clr, transmitter not done 
swrite output character 

:return 
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CONIO 
Symbol table 


BOOSRE ADPROMPT 
T_UV1_SWITCH 


QVSSSINPUT 
QVSSSOUTPUT 
RUBOUT 


355° NORMAL 
v_ROB 


PSECT name 


Initialization 
ag processing 


s 1 
Synbol table sort 
Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 
rking 


io were 


= console input 
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00000000 
00000000 Q:) 
000000¢B 20 


produc ing 


mi: 


The yo isi Limit was 1350 pages. 

579 ayees (51 pages) of virtual memory were used to buffer 
0 pages of symbol table space allocated t 
185 source tae were read in Pass 1, 
9 pages of virtual memory were used to define 


output routines 
02 
02 
0 
03 
erry + 
! : _Psect synopsis ! 
PSECT No. Attributes 
80 ‘ 0.) NOPIC USR 
1.) NOPIC USR 
) $3 2.) NOPIC USR 


eer ewe tee ee meee wee mec e an} 
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hold 506 non-local 
object records in Pass 
macros. 
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§- -JUL-19384 15:38 18 YOVIROM. BUSSRC 
CON ABS ~ LCL NOSHR NOEXE 
CON ABS LCL NOSHR’ EXeE 

CON REL LCL NOSHR EXE RD 


he intermedia‘e 


and 1 


9aeF local symbols. 


$t6n 


00 Page 
1o.man:1 -°% ¢§) 


— NOWRT NOVEC BYTE 


WRT NOVEC BYTE 
WRT NOVEC BYTE 


a 
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! Macro Library statistics ! 


juenneae eeeereeeocoecesecoe auet 


Macre Library name Macros defined 
33 S$b.al ieee oy LIBUV1.MLB;1 0 
SegenuA OBJJVMB.MLS;1 4 
Etta ESYSUIBISTARLES: MLB;3 
reracs (all Libraries) 5 


553 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CONIO/OBJ=0BJ$:CONIO MSRC$:BOOUV1 SWT/UPDATE= (BUGS: BOOUV1 SWT) +MSRC$:CONIO/UPDATE= (BUGS: CONIO) +1. 1B$:VMB/LIB+LiB$:LIBUV1 


dei AK-EF71A-SE ate OD 
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